home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / BED / Rexx / PrevParagraph.bed < prev    next >
Text File  |  1996-09-26  |  549b  |  54 lines
  1. /*
  2. ** $VER: PrevParagraph.bed 1.0 (06.01.96)
  3. **
  4. ** Move the cursor to the start of the previous paragraph
  5. */
  6.  
  7. OPTIONS RESULTS
  8.  
  9. str = ' ' || '09'X
  10.  
  11. SetLockInput ON
  12. SetLockDisplay ON
  13.  
  14. MoveSOL
  15.  
  16. DO FOREVER
  17.  
  18.     GetLine
  19.         IF COMPRESS(RESULT,str) = "" THEN BREAK
  20.  
  21.     MoveUp
  22.  
  23.     IF RC ~= 0 THEN EXIT
  24.  
  25. END
  26.  
  27. DO FOREVER
  28.  
  29.     GetLine
  30.     IF COMPRESS(RESULT,str) ~= "" THEN BREAK
  31.  
  32.     MoveUp
  33.  
  34.     IF RC ~= 0 THEN EXIT
  35.  
  36. END
  37.  
  38. DO FOREVER
  39.  
  40.     GetLine
  41.     IF COMPRESS(RESULT,str) = "" THEN DO
  42.         MoveDown
  43.         EXIT
  44.     END
  45.  
  46.     MoveUp
  47.  
  48.     IF RC ~= 0 THEN EXIT
  49.  
  50. END
  51.  
  52. SetLockInput OFF
  53. SetLockDisplay OFF
  54.